// 32 bits low level files management

//----------------------------------------------------------------------------//

function Main()

   local hFile   := FOpen( "tutor09.prg" )
   local cBuffer := Space( 30 )

   MsgInfo( FRead( hFile, @cBuffer, 30 ) )

   MsgInfo( cBuffer )

   MsgInfo( FClose( hFile ) )

return nil

//----------------------------------------------------------------------------//
